home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / mail / netmail_13.lha / NetMail / Drivers / GoldED.reader < prev    next >
Text File  |  1995-10-10  |  3KB  |  107 lines
  1. /*
  2. ** $VER: GoldED.reader 1.0 (10.10.95)
  3. ** Copyright (c) 1995 Riccardo Solmi
  4. **
  5. */
  6.  
  7. OPTIONS RESULTS
  8. OPTIONS FAILAT 21
  9.  
  10. cmd = 'GoldED:ED'
  11. IF ~EXISTS(cmd) THEN DO
  12.    cmd = GetVar('NetMail/GoldEDCmd')
  13.    IF cmd = 0 | ~EXISTS(cmd) THEN DO
  14.       ADDRESS COMMAND 'SetEnv NetMail/GoldEDCmd `Which "GED"`'
  15.       cmd = GetVar('NetMail/GoldEDCmd')
  16.       IF cmd = 0 THEN DO
  17.          ADDRESS COMMAND 'SetEnv NetMail/GoldEDCmd `RequestFile Title "Select GED command" Noicons`'
  18.          cmd = GetVar('NetMail/GoldEDCmd')
  19.          IF cmd = 0 | ~EXISTS(cmd) THEN RETURN 2
  20.          ADDRESS COMMAND 'Copy QUIET ENV:NetMail/GoldEDCmd ENVARC:NetMail/GoldEDCmd'
  21.       END
  22.    END
  23. END
  24.  
  25. SELECT
  26.    WHEN UPPER(ARG(1)) = 'READ' THEN DO
  27.       PARSE ARG , file, whandle
  28.  
  29.       winpar  = ''
  30.       wininfo = GetVar('NetMail/ReaderWin')
  31.       IF wininfo ~= 0 THEN DO
  32.          PARSE VAR wininfo pL pT pW pH .
  33.          winpar = 'X' pL 'Y' pT 'WIDTH' pW 'HEIGHT' pH
  34.       END
  35.  
  36.       port = 'GOLDED.1'
  37.       IF SHOW('P', port) THEN DO
  38.          ADDRESS VALUE port
  39.          'Query WINDOWS VAR MAXWIN'
  40.          DO win = 0 TO MAXWIN-1
  41.             'Window QUIET ORDINAL' win
  42.             'Query HANDLE VAR WINHANDLE'
  43.             IF winhandle = whandle THEN LEAVE
  44.          END
  45.          IF winhandle = whandle THEN
  46.             'Open QUIET FAST NAME "'file'"'
  47.          ELSE DO
  48.             'Open NEW QUIET FAST NAME "'file'"'
  49.             whandle = RESULT
  50.          END
  51.       END
  52.       ELSE DO
  53.          ADDRESS COMMAND
  54.          '"'cmd'" "'file'"'
  55.          'WaitForPort' port
  56.          IF RC ~= 0 THEN RETURN 5
  57.          ADDRESS VALUE port
  58.          'Query HANDLE VAR WHANDLE'
  59.       END
  60.       IF winpar ~='' THEN 'Window' winpar
  61.    END
  62.    WHEN UPPER(ARG(1)) = 'CLEAR' THEN DO
  63.       PARSE ARG , whandle
  64.  
  65.       port = 'GOLDED.1'
  66.       IF SHOW('P', port) THEN DO
  67.          ADDRESS VALUE port
  68.          'Query WINDOWS VAR MAXWIN'
  69.          DO win = 0 TO MAXWIN-1
  70.             'Window QUIET ORDINAL' win
  71.             'Query HANDLE VAR WINHANDLE'
  72.             IF winhandle = whandle THEN LEAVE
  73.          END
  74.          IF winhandle = whandle THEN DO
  75.             'Window HANDLE' whandle
  76.             'New FORCE NONAME'
  77.          END
  78.       END
  79.    END
  80.    WHEN UPPER(ARG(1)) = 'CLOSE' THEN DO
  81.       PARSE ARG , whandle
  82.  
  83.       port = 'GOLDED.1'
  84.       IF SHOW('P', port) THEN DO
  85.          ADDRESS VALUE port
  86.          'Query WINDOWS VAR MAXWIN'
  87.          DO win = 0 TO MAXWIN-1
  88.             'Window QUIET ORDINAL' win
  89.             'Query HANDLE VAR WINHANDLE'
  90.             IF winhandle = whandle THEN LEAVE
  91.          END
  92.          IF winhandle = whandle THEN DO
  93.             'Window HANDLE' whandle
  94.             wininfo = GetVar('NetMail/ReaderWin')
  95.             PARSE VAR wininfo pL pT pW pH cLTWH
  96.             'Query X VAR PL'
  97.             'Query Y VAR PT'
  98.             'Query WINW VAR PW'
  99.             'Query WINH VAR PH'
  100.             CALL SetVar('NetMail/ReaderWin', pL pT pW pH cLTWH)
  101.             'Quit FORCE NOSAVE'
  102.          END
  103.       END
  104.    END
  105. END
  106. RETURN whandle
  107.